home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / START.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  640 b   |  33 lines
  1. 10  ' ******************
  2. 20  ' **     STAR     **
  3. 30  ' ******************
  4. 40  '
  5. 50  CLEAR
  6. 60  SCREEN 1
  7. 70  KEY OFF
  8. 80  RANDOMIZE VAL(RIGHT$(TIME$,2))
  9. 90  '
  10. 100  WHILE NOT YET.BORING OR YUKKY
  11. 110  CLS
  12. 120  INC = INT(9*RND+3)
  13. 130  X1 = 320
  14. 140  X2 = 0
  15. 150  Y1 = 99
  16. 160  Y2 = 99
  17. 170  BACKGROUND = INT(16*RND)
  18. 180  PALETTE = INT(2*RND)
  19. 190  COLOR BACKGROUND,PALETTE
  20. 200  STRIPES = INT(4*RND)
  21. 210  LINE (X1,99)-(160,Y1),STRIPES
  22. 220  LINE -(X2,99),STRIPES
  23. 230  LINE -(160,Y2),STRIPES
  24. 240  LINE -(X1,99),STRIPES
  25. 250  X1 = X1 - INC
  26. 260  X2 = X2 + INC
  27. 270  Y1 = Y1 - INC
  28. 280  Y2 = Y2 + INC
  29. 290  IF X1 >= X2 THEN 210
  30. 300  FOR I = 1 TO 999
  31. 310  NEXT I
  32. 320  WEND
  33.